home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 001-100 / 001-025 / 006 / microemacs / vt52.c < prev    next >
C/C++ Source or Header  |  1995-03-17  |  2KB  |  99 lines
  1. /*
  2.  * The routines in this file
  3.  * provide support for VT52 style terminals
  4.  * over a serial line. The serial I/O services are
  5.  * provided by routines in "termio.c". It compiles
  6.  * into nothing if not a VT52 style device. The
  7.  * bell on the VT52 is terrible, so the "beep"
  8.  * routine is conditionalized on defining BEL.
  9.  */
  10. #include        <stdio.h>
  11. #include        "ed.h"
  12.  
  13. #if     VT52
  14.  
  15. #define NROW    24                      /* Screen size.                 */
  16. #define NCOL    80                      /* Edit if you want to.         */
  17. #define BIAS    0x20                    /* Origin 0 coordinate bias.    */
  18. #define ESC     0x1B                    /* ESC character.               */
  19. #define BEL     0x07                    /* ascii bell character         */
  20.  
  21. extern  int     ttopen();               /* Forward references.          */
  22. extern  int     ttgetc();
  23. extern  int     ttputc();
  24. extern  int     ttflush();
  25. extern  int     ttclose();
  26. extern  int     vt52move();
  27. extern  int     vt52eeol();
  28. extern  int     vt52eeop();
  29. extern  int     vt52beep();
  30. extern  int     vt52open();
  31.  
  32. /*
  33.  * Dispatch table. All the
  34.  * hard fields just point into the
  35.  * terminal I/O code.
  36.  */
  37. TERM    term    = {
  38.         NROW-1,
  39.         NCOL,
  40.         &vt52open,
  41.         &ttclose,
  42.         &ttgetc,
  43.         &ttputc,
  44.         &ttflush,
  45.         &vt52move,
  46.         &vt52eeol,
  47.         &vt52eeop,
  48.         &vt52beep
  49. };
  50.  
  51. vt52move(row, col)
  52. {
  53.         ttputc(ESC);
  54.         ttputc('Y');
  55.         ttputc(row+BIAS);
  56.         ttputc(col+BIAS);
  57. }
  58.  
  59. vt52eeol()
  60. {
  61.         ttputc(ESC);
  62.         ttputc('K');
  63. }
  64.  
  65. vt52eeop()
  66. {
  67.         ttputc(ESC);
  68.         ttputc('J');
  69. }
  70.  
  71. vt52beep()
  72. {
  73. #ifdef  BEL
  74.         ttputc(BEL);
  75.         ttflush();
  76. #endif
  77. }
  78.  
  79. #endif
  80.  
  81. vt52open()
  82. {
  83. #if     V7
  84.         register char *cp;
  85.         char *getenv();
  86.  
  87.         if ((cp = getenv("TERM")) == NULL) {
  88.                 puts("Shell variable TERM not defined!");
  89.                 exit(1);
  90.         }
  91.         if (strcmp(cp, "vt52") != 0 && strcmp(cp, "z19") != 0) {
  92.                 puts("Terminal type not 'vt52'or 'z19' !");
  93.                 exit(1);
  94.         }
  95. #endif
  96.         ttopen();
  97. }
  98.  
  99.